home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / pcboard / gossip01.zip / GOSSIP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-01-16  |  7KB  |  432 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.     String   STRING032
  52.     String   STRING033
  53.     String   STRING034
  54.     String   STRING035
  55.     String   STRING036
  56.  
  57. ;------------------------------------------------------------------------------
  58.  
  59.     STRING002 = " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-.@&*!'"""
  60.     STRING005 = "1234567890"
  61.     :LABEL001
  62.     Cls
  63.     Newline
  64.     PrintLn "@X09GOSSIP01.PPE v1.0     Copyright(c) 1996  Software Kitchen BBS   718-281-0645@X07"
  65.     PrintLn "@X01════════════════════════════════════════════════════════════════════════════@X07"
  66.     FOpen 1, PPEPath() + "GOSSIP.Log", 0, 2
  67.     FGet 1, STRING007
  68.     AnsiPos 1, 4
  69.     PrintLn "@X05" + "@X0E " + STRING007
  70.     FGet 1, STRING008
  71.     AnsiPos 1, 5
  72.     PrintLn "@X05" + "@X0B " + STRING008
  73.     FGet 1, STRING009
  74.     AnsiPos 1, 6
  75.     PrintLn "@X05" + "@X0A " + STRING009
  76.     FGet 1, STRING010
  77.     AnsiPos 1, 7
  78.     PrintLn "@X05" + "@X0F " + STRING010
  79.     FGet 1, STRING011
  80.     AnsiPos 1, 8
  81.     PrintLn "@X05" + "@X0D " + STRING011
  82.     FGet 1, STRING012
  83.     AnsiPos 1, 9
  84.     PrintLn "@X05" + "@X0E " + STRING012
  85.     FGet 1, STRING013
  86.     AnsiPos 1, 10
  87.     PrintLn "@X05" + "@X0B " + STRING013
  88.     FGet 1, STRING014
  89.     AnsiPos 1, 11
  90.     PrintLn "@X05" + "@X0F " + STRING014
  91.     FGet 1, STRING015
  92.     AnsiPos 1, 12
  93.     PrintLn "@X05" + "@X0A " + STRING015
  94.     FGet 1, STRING016
  95.     AnsiPos 1, 13
  96.     PrintLn "@X05" + "@X0C " + STRING016
  97.     FGet 1, STRING017
  98.     AnsiPos 1, 14
  99.     PrintLn "@X05" + "@X0B " + STRING017
  100.     FGet 1, STRING018
  101.     AnsiPos 1, 15
  102.     PrintLn "@X05" + "@X0F " + STRING018
  103.     FGet 1, STRING019
  104.     AnsiPos 1, 16
  105.     PrintLn "@X05" + "@X0E " + STRING019
  106.     FGet 1, STRING020
  107.     AnsiPos 1, 17
  108.     PrintLn "@X05" + "@X0C " + STRING020
  109.     FGet 1, STRING021
  110.     AnsiPos 1, 18
  111.     PrintLn "@X05" + "@X0A " + STRING021
  112.     FClose 1
  113.     GetUser
  114.     If (U_Sec < 80) Then
  115.         PrintLn "@X01════════════════════════════════════════════════════════════════════════════@X07"
  116.         AnsiPos 8, 20
  117.         InputYN " @X0C            Would you like to add a gossip Y/N", STRING001, 10
  118.         If (STRING001 == YesChar()) Then
  119.             Newline
  120.             STRING006 = " "
  121.             PrintLn "@X0F Enter gossip.   No explicite language.   70 words max per line.     "
  122.             InputStr "", STRING006, 15, 70, STRING002, 64 + 2 + 4
  123.             INTEGER001 = Len(STRING006)
  124.             If ((STRING006 <> "") && (INTEGER001 > 3)) Then
  125.                 If ((STRING006 == "FUCK") || (STRING006 == "fuck")) Stop
  126.                 FOpen 1, PPEPath() + "GOSSIP.TXT", 0, 2
  127.                 FGet 1, STRING022
  128.                 FGet 1, STRING023
  129.                 FGet 1, STRING024
  130.                 FGet 1, STRING025
  131.                 FGet 1, STRING026
  132.                 FGet 1, STRING027
  133.                 FGet 1, STRING028
  134.                 FGet 1, STRING029
  135.                 FGet 1, STRING030
  136.                 FGet 1, STRING031
  137.                 FGet 1, STRING032
  138.                 FGet 1, STRING033
  139.                 FGet 1, STRING034
  140.                 FGet 1, STRING035
  141.                 FGet 1, STRING036
  142.                 FClose 1
  143.                 FCreate 1, PPEPath() + "GOSSIP.Log", 1, 3
  144.                 STRING007 = STRING008
  145.                 STRING008 = STRING009
  146.                 STRING009 = STRING010
  147.                 STRING010 = STRING011
  148.                 STRING011 = STRING012
  149.                 STRING012 = STRING013
  150.                 STRING013 = STRING014
  151.                 STRING014 = STRING015
  152.                 STRING015 = STRING016
  153.                 STRING016 = STRING017
  154.                 STRING017 = STRING018
  155.                 STRING018 = STRING019
  156.                 STRING019 = STRING020
  157.                 STRING020 = STRING021
  158.                 STRING021 = STRING006
  159.                 FPutLn 1, STRING007
  160.                 FPutLn 1, STRING008
  161.                 FPutLn 1, STRING009
  162.                 FPutLn 1, STRING010
  163.                 FPutLn 1, STRING011
  164.                 FPutLn 1, STRING012
  165.                 FPutLn 1, STRING013
  166.                 FPutLn 1, STRING014
  167.                 FPutLn 1, STRING015
  168.                 FPutLn 1, STRING016
  169.                 FPutLn 1, STRING017
  170.                 FPutLn 1, STRING018
  171.                 FPutLn 1, STRING019
  172.                 FPutLn 1, STRING020
  173.                 FPutLn 1, STRING021
  174.                 FCreate 2, PPEPath() + "GOSSIP.TXT", 1, 3
  175.                 STRING022 = STRING023
  176.                 STRING023 = STRING024
  177.                 STRING024 = STRING025
  178.                 STRING025 = STRING026
  179.                 STRING026 = STRING027
  180.                 STRING027 = STRING028
  181.                 STRING028 = STRING029
  182.                 STRING029 = STRING030
  183.                 STRING030 = STRING031
  184.                 STRING031 = STRING032
  185.                 STRING032 = STRING033
  186.                 STRING033 = STRING034
  187.                 STRING034 = STRING035
  188.                 STRING035 = STRING036
  189.                 STRING036 = U_Name() + " " + STRING006
  190.                 FPutLn 2, STRING022
  191.                 FPutLn 2, STRING023
  192.                 FPutLn 2, STRING024
  193.                 FPutLn 2, STRING025
  194.                 FPutLn 2, STRING026
  195.                 FPutLn 2, STRING027
  196.                 FPutLn 2, STRING028
  197.                 FPutLn 2, STRING029
  198.                 FPutLn 2, STRING030
  199.                 FPutLn 2, STRING031
  200.                 FPutLn 2, STRING032
  201.                 FPutLn 2, STRING033
  202.                 FPutLn 2, STRING034
  203.                 FPutLn 2, STRING035
  204.                 FPutLn 2, STRING036
  205.                 FClose 1
  206.                 FClose 2
  207.             Endif
  208.         Endif
  209.     Else
  210.         PrintLn "@X01════════════════════════════════════════════════════════════════════════════@X07"
  211.         AnsiPos 8, 20
  212.         InputStr " [@X0CA@X0F]dd     [@X0CD@X0F]elete     [@X0CV@X0F]iew      [@X0CQ@X0F]uit", STRING003, 15, 1, "advqADVQ", 2 + 4 + 8
  213.         Select Case (STRING003)
  214.             Case "A"
  215.                 Gosub LABEL002
  216.             Case "V"
  217.                 Gosub LABEL003
  218.             Case "D"
  219.                 Gosub LABEL004
  220.             Case Else
  221.                 Stop
  222.         End Select
  223.         End
  224.         :LABEL002
  225.         Newline
  226.         STRING006 = " "
  227.         PrintLn "@X0F Enter gossip.   No explicite language.   70 words max per line.     "
  228.         InputStr "", STRING006, 15, 70, STRING002, 64 + 2 + 4
  229.         INTEGER001 = Len(STRING006)
  230.         If ((STRING006 <> "") && (INTEGER001 > 3)) Then
  231.             FOpen 1, PPEPath() + "GOSSIP.TXT", 0, 2
  232.             FGet 1, STRING022
  233.             FGet 1, STRING023
  234.             FGet 1, STRING024
  235.             FGet 1, STRING025
  236.             FGet 1, STRING026
  237.             FGet 1, STRING027
  238.             FGet 1, STRING028
  239.             FGet 1, STRING029
  240.             FGet 1, STRING030
  241.             FGet 1, STRING031
  242.             FGet 1, STRING032
  243.             FGet 1, STRING033
  244.             FGet 1, STRING034
  245.             FGet 1, STRING035
  246.             FGet 1, STRING036
  247.             FClose 1
  248.             FCreate 1, PPEPath() + "GOSSIP.Log", 1, 3
  249.             STRING007 = STRING008
  250.             STRING008 = STRING009
  251.             STRING009 = STRING010
  252.             STRING010 = STRING011
  253.             STRING011 = STRING012
  254.             STRING012 = STRING013
  255.             STRING013 = STRING014
  256.             STRING014 = STRING015
  257.             STRING015 = STRING016
  258.             STRING016 = STRING017
  259.             STRING017 = STRING018
  260.             STRING018 = STRING019
  261.             STRING019 = STRING020
  262.             STRING020 = STRING021
  263.             STRING021 = STRING006
  264.             FPutLn 1, STRING007
  265.             FPutLn 1, STRING008
  266.             FPutLn 1, STRING009
  267.             FPutLn 1, STRING010
  268.             FPutLn 1, STRING011
  269.             FPutLn 1, STRING012
  270.             FPutLn 1, STRING013
  271.             FPutLn 1, STRING014
  272.             FPutLn 1, STRING015
  273.             FPutLn 1, STRING016
  274.             FPutLn 1, STRING017
  275.             FPutLn 1, STRING018
  276.             FPutLn 1, STRING019
  277.             FPutLn 1, STRING020
  278.             FPutLn 1, STRING021
  279.             FCreate 2, PPEPath() + "GOSSIP.TXT", 1, 3
  280.             STRING022 = STRING023
  281.             STRING023 = STRING024
  282.             STRING024 = STRING025
  283.             STRING025 = STRING026
  284.             STRING026 = STRING027
  285.             STRING027 = STRING028
  286.             STRING028 = STRING029
  287.             STRING029 = STRING030
  288.             STRING030 = STRING031
  289.             STRING031 = STRING032
  290.             STRING032 = STRING033
  291.             STRING033 = STRING034
  292.             STRING034 = STRING035
  293.             STRING035 = STRING036
  294.             STRING036 = Lower(U_Name()) + " " + STRING006
  295.             FPutLn 2, STRING022
  296.             FPutLn 2, STRING023
  297.             FPutLn 2, STRING024
  298.             FPutLn 2, STRING025
  299.             FPutLn 2, STRING026
  300.             FPutLn 2, STRING027
  301.             FPutLn 2, STRING028
  302.             FPutLn 2, STRING029
  303.             FPutLn 2, STRING030
  304.             FPutLn 2, STRING031
  305.             FPutLn 2, STRING032
  306.             FPutLn 2, STRING033
  307.             FPutLn 2, STRING034
  308.             FPutLn 2, STRING035
  309.             FPutLn 2, STRING036
  310.             FClose 1
  311.             FClose 2
  312.         Endif
  313.         Return
  314.         End
  315.         :LABEL003
  316.         Cls
  317.         Newline
  318.         PrintLn "@X1F                            Gossip from                              @X07 "
  319.         DispFile PPEPath() + "GOSSIP.TXT", 0
  320.         Delay 35
  321.         STRING003 = " "
  322.         Gosub LABEL001
  323.         Return
  324.         End
  325.         :LABEL004
  326.         Newline
  327.         InputStr "@X0FDelete line # (1-15)", STRING004, 15, 2, STRING005, 64 + 2 + 4
  328.         If (STRING004 == "1") STRING007 = "@X01 **** remove by sysop ****@X07"
  329.         If (STRING004 == "2") STRING008 = "@X01**** remove by sysop ****@X07"
  330.         If (STRING004 == "3") STRING009 = "@X01**** remove by sysop ****@X07"
  331.         If (STRING004 == "4") STRING010 = "@X01**** remove by sysop ****@X07"
  332.         If (STRING004 == "5") STRING011 = "@X01**** remove by sysop ****@X07"
  333.         If (STRING004 == "6") STRING012 = "@X01**** remove by sysop ****@X07"
  334.         If (STRING004 == "7") STRING013 = "@X01**** remove by sysop ****@X07"
  335.         If (STRING004 == "8") STRING014 = "@X01**** remove by sysop ****@X07"
  336.         If (STRING004 == "9") STRING015 = "@X01**** remove by sysop ****@X07"
  337.         If (STRING004 == "10") STRING016 = "@X01**** remove by sysop ****@X07"
  338.         If (STRING004 == "11") STRING017 = "@X01**** remove by sysop ****@X07"
  339.         If (STRING004 == "12") STRING018 = "@X01**** remove by sysop ****@X07"
  340.         If (STRING004 == "13") STRING019 = "@X01**** remove by sysop ****@X07"
  341.         If (STRING004 == "14") STRING020 = "@X01**** remove by sysop ****@X07"
  342.         If (STRING004 == "15") STRING021 = "@X01**** remove by sysop ****@X07"
  343.         FCreate 2, PPEPath() + "GOSSIP.LOG", 1, 3
  344.         FPutLn 2, STRING007
  345.         FPutLn 2, STRING008
  346.         FPutLn 2, STRING009
  347.         FPutLn 2, STRING010
  348.         FPutLn 2, STRING011
  349.         FPutLn 2, STRING012
  350.         FPutLn 2, STRING013
  351.         FPutLn 2, STRING014
  352.         FPutLn 2, STRING015
  353.         FPutLn 2, STRING016
  354.         FPutLn 2, STRING017
  355.         FPutLn 2, STRING018
  356.         FPutLn 2, STRING019
  357.         FPutLn 2, STRING020
  358.         FPutLn 2, STRING021
  359.         FClose 2
  360.         FClose 1
  361.         Delay 10
  362.         STRING003 = " "
  363.         Goto LABEL001
  364.         Return
  365.         End
  366.     Endif
  367.     FCloseAll
  368.     End
  369.  
  370. ;------------------------------------------------------------------------------
  371. ;
  372. ; Usage report (before postprocessing)
  373. ;
  374. ; ■ Statements used :
  375. ;
  376. ;    5       End
  377. ;    2       Cls
  378. ;    12      Goto 
  379. ;    83      Let 
  380. ;    22      PrintLn 
  381. ;    23      If 
  382. ;    1       DispFile 
  383. ;    5       FCreate 
  384. ;    3       FOpen 
  385. ;    9       FClose 
  386. ;    45      FGet 
  387. ;    75      FPutLn 
  388. ;    1       GetUser
  389. ;    4       InputStr 
  390. ;    1       InputYN 
  391. ;    4       Gosub 
  392. ;    3       Return
  393. ;    2       Delay 
  394. ;    5       Newline
  395. ;    2       Stop
  396. ;    17      AnsiPos 
  397. ;    1       FCloseAll
  398. ;
  399. ;
  400. ; ■ Functions used :
  401. ;
  402. ;    51      +
  403. ;    21      ==
  404. ;    2       <>
  405. ;    1       <
  406. ;    2       >
  407. ;    7       !
  408. ;    2       &&
  409. ;    1       ||
  410. ;    2       Len(
  411. ;    1       Lower()
  412. ;    2       U_Name()
  413. ;    1       YesChar()
  414. ;    9       PPEPath()
  415. ;
  416. ;------------------------------------------------------------------------------
  417. ;
  418. ; Analysis flags : No flag
  419. ;
  420. ;------------------------------------------------------------------------------
  421. ;
  422. ; Postprocessing report
  423. ;
  424. ;    0       For/Next
  425. ;    0       While/EndWhile
  426. ;    4       If/Then or If/Then/Else
  427. ;    1       Select Case
  428. ;
  429. ;------------------------------------------------------------------------------
  430. ;                 AEGiS Corp - Break the routines, code against the machines!
  431. ;------------------------------------------------------------------------------
  432.